10 GOTO1000
100 POKE162,0:WAIT162,64:POKE198,0:PRINT"[150]ANSWER:[146][155]    [157][157][157]";
102 POKE204,0:M$=""
105 WAIT198,1:GETG$
110 IFMANDG$="Y"THENPRINT"YES":GOTO190
120 IFMANDG$="N"THENPRINT"NO":M=0:GOTO190
130 IFMTHEN105
140 M=ASC(G$):IFM=13THENM=VAL(M$):GOTO190
150 IFM=20ANDM$>""THENPRINT" [157][157] [157]";:M$=LEFT$(M$,LEN(M$)-1)
160 IFM>57ORM<48THEN180
170 M$=M$+G$:PRINTG$;
180 WAIT198,1:GETG$:GOTO140
190 POKE204,1:POKE162,0:PRINT" [158]":WAIT162,64:RETURN
1000 POKE53280,9:POKE53281,9
1002 PRINT"[147][142]    [165] [165][207] [207]    [207] [205][206] [207][165][207] [207] [208][183][206][205][167][205] [165][207] [205][206]
1003 [153]"    (null) FN(null) (null)    (null) (null)(null) (null) (null) (null) THEN (null)(null)THEN (null)FN(null) THENFN
1004 PRINT"         [163]    [163]      [163]
1006 [153],"SYS      BY
1007 PRINT,"STEVEN DARNOLD
1008 [153],"P.O. BOX 201
1009 PRINT,"ALEXANDRA, NEW ZEALAND
1010 [129]I[178]1[164]6000:[130]
1015 [153]"LOADCHR$REETINGS.  SYSRIGHT$ AM GOING TO ASK YOU SOME
1020 PRINT"QUESTIONS ABOUT YOURSELF.  [212]HEN, ON THE
1030 [153]"BASIS OF YOUR ANSWERS, RIGHT$ WILL PREDICT
1040 PRINT"HOW MANY YEARS YOU WILL LIVE.
1050 [129]I[178]1[164]8000:[130]
1060 [153]"LOADLEFT$OW OLD ARE YOU?":[141]100:A[178]M
1070 [153]"LOADATNRE YOU FEMALE?":M[178]1:[141]100:S[178]M
1080 [153]"LOADATNRE YOU A (null)AORI?":M[178]1:[141]100:R[178]M
1090 [153]"LOADLEFT$OW MANY MINUTES OF VIGOROUS EXERCISE
1100 PRINT"DO YOU HAVE IN A NORMAL WEEK?
1110 [153]"((null)(null)(null)VAL:  GOLF, BOWLS AND GARDENING ARE
1120 PRINT" NOT[157][157][157][163][163][163][145] VIGOROUS ENOUGH TO COUNT)":M=0:GOSUB100:T=200:M=M/15-1
1130 IFM>9THENM=9
1140 T=T+M*3
1150 PRINT"[147][200]OW MANY HOURS OF SLEEP DO YOU NORMALLY
1160 [153]"GET EACH NIGHT?":M[178]0:[141]100:[139]M[177]6[175]M[179]10[167]T[178]T[170]4
1170 [153]"LOADRIGHT$F YOU COULD MAGICALLY LOSE WEIGHT, HOW"
1180 [153]"MANY POUNDS WOULD YOU LIKE TO LOSE?":M[178]0:[141]100:M[178](M[171]5)[173]2.5
1190 [139]M[177]20[167]M[178]20
1200 T[178]T[171]M
1210 [153]"LOADSTR$O YOU EAT LOTS OF FRESH FRUIT AND","VEGETABLES?":M[178]1:[141]100:T[178]T[170]M[172]6
1220 [153]"LOADSTR$O YOU OFTEN HAVE FRIED FOOD  ","(EGGS, CHIPS, MEAT, ETC.)?
1230 M=1:GOSUB100:IFM=0THENT=T+8
1240 PRINT"[147][196]O YOU SMOKE A PIPE?":M=1:GOSUB100:T=T-M*4
1250 PRINT"[147][207]N THE AVERAGE, HOW MANY CIGARETTES"
1260 PRINT"(OR CIGARS) DO YOU SMOKE PER DAY?":M=0:GOSUB100:IFMTHENM=M+22:C=M
1270 T=T-M/3
1280 PRINT"[147][207]N THE AVERAGE, HOW MANY DRINKS DO YOU
1290 [153]"HAVE PER DAY?
1295 PRINT"[129]   [206][207][212][197]:  1 DRINK = 1 BOTTLE OF BEER[150][157][157][157][157][157][157][157][157][157]OR
1297 [153][163]20)"FOR1 NIP OF SPIRITSDEFCMDCMDCMDCMDCMDCMDCMDCMDCMDOR
1300 PRINTTAB(20)"[129]1 GLASS OF WINE":M=0:GOSUB100:T=T-4*ABS(M-1)
1310 PRINT"[147][200]AVE YOU HAD A TETANUS INJECTION IN THE
1320 [153]"PAST 10 YEARS?":M[178]1:[141]100:T[178]T[171]4[170]M[172]4
1330 [153]"LOADRIGHT$N THE LAST FOUR TIMES YOU WERE IN AN
1340 PRINT"AUTOMOBILE, HOW MANY OF THOSE TIMES DID
1350 [153]"YOU USE THE SEAT BELT?":M[178]0:[141]100:[139]M[177]4[167]1330
1360 T[178]T[170]M[172]2
1370 [139]S[178]0[167]1500
1380 [153]"LOADLEFT$AVE YOU HAD A HYSTERECTOMY?":M[178]1:[141]100:[139]M[167]1500
1390 [153]"LOADLEFT$AVE YOU HAD A TUBAL LIGATION?":M[178]1:[141]100:[139]M[167]1500
1400 [153]"LOADLEFT$AVE YOU REACHED MENOPAUSE?":M[178]1:[141]100:[139]M[167]1500
1410 [153]"LOADATNRE YOU PRESENTLY USING BIRTH CONTROL
1420 PRINT"PILLS?":M=1:GOSUB100:IFMANDC>2THENT=T-10
1425 IFMANDA<36THENT=T+4
1430 PRINT"[147][201]F BEARING A CHILD WERE TO ENDANGER YOUR
1440 [153]"HEALTH, WOULD YOU HAVE AN ABORTION?":M[178]1:[141]100:T[178]T[171]5[170]M[172]6
1450 [153]"LOADSTR$ID YOU BEGIN REGULAR SEXUAL ACTIVITY
1460 PRINT"BEFORE AGE 18?":M=1:GOSUB100:T=T-M
1500 PRINT"[147][200]AVE YOU BEEN IN CLOSE CONTACT FOR A
1510 [153]"YEAR OR MORE WITH SOMEONE HAVING
1520 PRINT"TUBERCULOSIS?":M=1:GOSUB100:T=T-M*4
1530 PRINT"[147][200]AVE YOU HAD RADIATION (X-RAY) TREATMENT
1540 [153]"OF TONSILS, ADENOIDS, ACNE OR RINGWORM?":M[178]1:[141]100:T[178]T[171]M[172]6
1550 [153]"LOADSTR$O YOU REGULARLY WORK WITH ASBESTOS?":M[178]1:[141]100:T[178]T[171]M[172]2
1555 [139]M[175]C[167]T[178]T[171]8
1560 [153]"LOADSTR$O YOU REGULARLY WORK WITH VINYL","CHLORIDE?":M[178]1:[141]100:T[178]T[171]M[172]4
1570 [153]"LOADSTR$O YOU LIVE IN A CITY?":M[178]1:[141]100:T[178]T[171]M[172]6
1580 [153]"LOADLEFT$AVE YOU HAD SEXUAL ACTIVITY WITH MORE
1590 PRINT"THAN TEN DIFFERENT PARTNERS?":M=1:GOSUB100:T=T-M:IFSANDMTHENT=T-1
1600 PRINT"[147][193]RE YOU A WIDOW?";:IFS=0THENPRINT"[157]ER?";
1610 PRINT:M=1:GOSUB100:T=T-M
1620 PRINT"[147][215]ERE YOU DIVORCED OR SEPARATED IN THE
1630 [153]"LAST 12 MONTHS?":M[178]1:[141]100:T[178]T[171]M[172]2
1640 [153]"LOADLEFT$AS A CLOSE FAMILY MEMBER (INCLUDING
1650 PRINT"SPOUSE) DIED IN THE LAST 12 MONTHS?":M=1:GOSUB100:T=T-M
1660 PRINT"[147][200]AVE YOU HAD A MAJOR ILLNESS OR INJURY
1670 [153]"IN THE LAST 12 MONTHS?":M[178]1:[141]100:T[178]T[171]M
1680 [153]"LOADLEFT$AVE YOU EVER BEEN IN JAIL?":M[178]1:[141]100:T[178]T[171]M
1690 [153]"LOADATNRE YOU PRESENTLY UNEMPLOYED?":M[178]1:[141]100:T[178]T[171]M
1700 [153]"LOADLEFT$OW MANY OF YOUR IMMEDIATE FAMILY
1710 PRINT"(PARENTS, BROTHERS, SISTERS) HAVE DIED
1720 [153]"BEFORE AGE 55?":M[178]0:[141]100:T[178]T[171]4[172]M
1730 [153]"LOADLEFT$OW MANY OF YOUR MORE DISTANT RELATIVES
1740 PRINT"(GRANDPARENTS, UNCLES, AUNTS) HAVE DIED
1750 [153]"BEFORE AGE 55?":M[178]0:[141]100:T[178]T[171]M
1760 [139]S[178]0[167]1800
1770 [153]"LOADLEFT$AS YOUR MOTHER OR ANY OF YOUR SISTERS
1780 PRINT"HAD BREAST CANCER?":M=1:GOSUB100:T=T-M*4
1800 PRINT"[147][200]OW MANY OF YOUR RELATIVES (PARENTS,
1810 [153]"BROTHERS, SISTERS, AUNTS, UNCLES,
1820 PRINT"GRANDPARENTS) HAVE DIABETES?":M=0:GOSUB100:T=T-2*M
2000 DATA60.7,51.2,41.8,32.4,23.5,15.8,9.8,5.5
2010 DATA66.5,56.7,47,37.5,28.4,19.9,12.5,6.8
2020 DATA53.3,44,35.2,26.6,18.9,13,8.7,5
2030 DATA57.1,47.5,38.1,29.2,21.1,14.6,9.9,5.9
2040 IFRTHENFORI=1TO16:READX:NEXT
2050 IFSTHENFORI=1TO8:READX:NEXT
2060 A%=A/10
2070 FORI=1TOA%:READX:NEXT:READY
2072 IFA>80THENX=5:Y=3
2075 M=(10-A+10*A%)/10
2080 A%=T/200*(Y+M*(X-Y))+.5
2090 PRINT"[147][201] PREDICT THAT YOU WILL LIVE TO BE
2100 [153]""A[170]A%"YEARS OLD.
2110 GOTO2110